Date: Sat, 27 Aug 94 04:30:18 PDT
From: Ham-Space Mailing List and Newsgroup <ham-space@ucsd.edu>
Errors-To: Ham-Space-Errors@UCSD.Edu
Reply-To: Ham-Space@UCSD.Edu
Precedence: Bulk
Subject: Ham-Space Digest V94 #238
To: Ham-Space
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Today's Topics:
                      Converting Grid to Lat-Lon
                      QSL Route for RS-12 Robot

Send Replies or notes for publication to: <Ham-Space@UCSD.Edu>
Send subscription requests to: <Ham-Space-REQUEST@UCSD.Edu>
Problems you can't solve otherwise to brian@ucsd.edu.

Archives of past issues of the Ham-Space Digest are available 
(by FTP only) from UCSD.Edu in directory "mailarchives/ham-space".

We trust that readers are intelligent enough to realize that all text
herein consists of personal comments and does not represent the official
policies or positions of any party.  Your mileage may vary.  So there.
----------------------------------------------------------------------

Date: 25 Aug 1994 13:00:33 -0700
From: nntp.crl.com!crl4.crl.com!not-for-mail@decwrl.dec.com
Subject: Converting Grid to Lat-Lon
To: ham-space@ucsd.edu

In article <9408250942.ZM25231@SALCIUS2>,
Wayne_Estes@csg.mot.com (Wayne_Estes) wrote:

> I'm looking for a DOS or Windows program that can:
> 
> 	A. Convert 6-digit Maidenhead grid  to  Latitude/Longitude.
> 	B. Convert Latitude/Longitude  to  6-digit Maidenhead grid.

Wayne -

The attached Quick BASIC program will perform the functions you
mentioned above.  Sorry, I don't know who was the original author, so
can't give appropriate credits.

73 de Lou / N5SGL
                   --------------------------

    'Grid Square <-> latitude/longitude conversion
    '
START:
    CLS : COLOR 0, 7: PRINT "GRID SQUARE LOCATOR": COLOR 7, 0: PRINT
    PRINT "Which do you want to convert FROM?": PRINT
    COLOR 0, 7: PRINT "L"; : COLOR 7, 0: PRINT "at/Lon   ";
    COLOR 0, 7: PRINT "G"; : COLOR 7, 0: PRINT "rid   ";
    COLOR 0, 7: PRINT "Q"; : COLOR 7, 0: PRINT "uit": PRINT
    
RPT1:
    a$ = ""
    DO
        a$ = INKEY$
    LOOP UNTIL a$ <> ""
    IF UCASE$(a$) = "Q" THEN END
    IF UCASE$(a$) = "L" THEN GOTO LL
    IF UCASE$(a$) = "G" THEN GOTO GRID
    GOTO RPT1
    
LL:
    CLEAR : e9 = .000001
    CLS : COLOR 0, 7: PRINT "LAT/LON": COLOR 7, 0: PRINT
    PRINT "Enter SOUTH latitude and EAST longitude as NEGATIVE numbers."
    PRINT
    INPUT "LAT  (DD.MM)"; l
    IF l < -90 OR l > 90 THEN RUN
    INPUT "LON (DDD.MM)"; o
    IF o < -180 OR o > 180 THEN RUN
    os = SGN(o): o = ABS(o): ls = SGN(l): l = ABS(l)
    la = (INT(l) + (l - INT(l)) / .6) * ls
    lo = (INT(o) + (o - INT(o)) / .6) * os
    IF lo < 0 THEN lo = lo + 360
    w3 = 180 - lo: IF w3 < 0 THEN w3 = w3 + 360
    w1 = INT(w3 / 20 + e9)
    w2 = INT((w3 - 20 * w1) / 2 + e9) + 48: w1 = w1 + 65
    w3 = INT(24 * (w3 / 2 - INT(w3 / 2)) + e9) + 65
    l1 = INT((la + 90) / 10 + e9): l2 = INT(la + 90 + e9 - 10 * l1)
    l3 = INT((la + 90 - 10 * l1 - l2) * 24 + e9)
    l1 = l1 + 65: l2 = l2 + 48: l3 = l3 + 65
    g$ = CHR$(w1) + CHR$(l1) + CHR$(w2) + CHR$(l2) + CHR$(w3) + CHR$(l3)
    PRINT : PRINT "Grid square = "; UCASE$(g$)
    LOCATE 24, 1: PRINT "< Press a key to continue >";
    a$ = "": DO: a$ = INKEY$: LOOP UNTIL a$ <> "": GOTO START
    
GRID:
    CLEAR : e9 = .000001
    CLS : COLOR 0, 7: PRINT "GRID SQUARE": COLOR 7, 0: PRINT
    PRINT "Enter 2-, 4-, or 6-character grid square."
    PRINT "Short ones will be optimized to center of square.": PRINT
    INPUT "Grid square"; g$
    g$ = UCASE$(g$)
    l3 = LEN(g$): IF l3 < 2 OR l3 > 6 THEN RUN
    IF l3 = 1 OR l3 = 3 OR l3 = 5 THEN RUN
    SELECT CASE l3
        CASE 2
            g$ = g$ + "55LL"
        CASE 4
            g$ = g$ + "LL"
    END SELECT
    LOCATE CSRLIN - 1, 1: PRINT "Grid square = "; g$; "      "
    RESTORE
    FOR x = 1 TO 6
        READ y$, z$
        t$ = MID$(g$, x, 1): IF t$ < y$ OR t$ > z$ THEN RUN
    NEXT x
    DATA A,R,A,S,0,9,0,9,A,X,A,X
    w1 = ASC(LEFT$(g$, 1)) - 65
    w2 = ASC(MID$(g$, 3, 1)) - 48
    w3 = ASC(MID$(g$, 5, 1)) - 65
    lo = 180 - 20 * w1 - 2 * w2 - w3 / 12 - 1 / 24
    IF lo < 0 THEN lo = lo + 360
    l1 = ASC(MID$(g$, 2, 1)) - 65
    l2 = ASC(MID$(g$, 4, 1)) - 48
    l3 = ASC(RIGHT$(g$, 1)) - 65
    la = -90 + 10 * l1 + l2 + l3 / 24 + 1 / 48
    IF lo > 180 THEN lo = lo - 360
    ls = SGN(la): la = ABS(la)
    l = (INT(la) + INT((la - INT(la)) * 60) / 100) * ls
    os = SGN(lo): lo = ABS(lo)
    o = (INT(lo) + INT((lo - INT(lo)) * 60) / 100) * os
    PRINT
    PRINT "LAT   (DD.MM) ="; l
    PRINT "LON  (DDD.MM) ="; o
    PRINT
    PRINT "(SOUTH latitude and EAST longitude shown as negative numbers.)"
    LOCATE 24, 1: PRINT "< Press a key to continue >";
    a$ = "": DO: a$ = INKEY$: LOOP UNTIL a$ <> ""
    GOTO START

------------------------------

Date: 25 Aug 1994 12:45:37 GMT
From: hatch.sonalysts.com!gerheim@uunet.uu.net
Subject: QSL Route for RS-12 Robot
To: ham-space@ucsd.edu

Does anyone know the QSL route for the RS-12 robot?  I worked it a few
weeks ago, and don't recall the route.  TNX,

--
***********************************************************************
Al Gerheim                                              Sonalysts, Inc.
Email: gerheim@sonalysts.com                         215 Parkway North
Work: (203)442-4355                                 Waterford CT 06385
***********************************************************************

------------------------------
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